home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / Finder.p < prev    next >
Text File  |  1995-09-12  |  4KB  |  129 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 6:11:43 PM }
  2. {
  3.      File:        Finder.p
  4.  
  5.      Contains:    Finder flags and container types.
  6.  
  7.      Version:    Technology:    System 7.5
  8.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  9.  
  10.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14.                  stack.  Include the file and version information (from above)
  15.                  in the problem description and send to:
  16.                      Internet:    apple.bugs@applelink.apple.com
  17.                      AppleLink:    APPLE.BUGS
  18.  
  19. }
  20.  
  21.  UNIT Finder;
  22.  INTERFACE
  23.  
  24.  
  25. {$IFC UNDEFINED __FINDER__}
  26. {$SETC __FINDER__ := 1}
  27.  
  28.   USES
  29.    ConditionalMacros, Types;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35. CONST
  36. { Make only the following consts avaiable to resource files that include this file }
  37.     kCustomIconResource            = -16455;                        { Custom icon family resource ID }
  38.     kContainerFolderAliasType    = 'fdrp';                        { type for folder aliases }
  39.     kContainerTrashAliasType    = 'trsh';                        { type for trash folder aliases }
  40.     kContainerHardDiskAliasType    = 'hdsk';                        { type for hard disk aliases }
  41.     kContainerFloppyAliasType    = 'flpy';                        { type for floppy aliases }
  42.     kContainerServerAliasType    = 'srvr';                        { type for server aliases }
  43.     kApplicationAliasType        = 'adrp';                        { type for application aliases }
  44.     kContainerAliasType            = 'drop';                        { type for all other containers }
  45. { types for Special folder aliases }
  46.     kSystemFolderAliasType        = 'fasy';
  47.     kAppleMenuFolderAliasType    = 'faam';
  48.     kStartupFolderAliasType        = 'fast';
  49.     kPrintMonitorDocsFolderAliasType = 'fapn';
  50.     kPreferencesFolderAliasType    = 'fapf';
  51.     kControlPanelFolderAliasType = 'fact';
  52.     kExtensionFolderAliasType    = 'faex';
  53. { types for AppleShare folder aliases }
  54.     kExportedFolderAliasType    = 'faet';
  55.     kDropFolderAliasType        = 'fadr';
  56.     kSharedFolderAliasType        = 'fash';
  57.     kMountedFolderAliasType        = 'famn';
  58.  
  59. { Finder Flags }
  60.     kIsOnDesk                    = $1;
  61.     kColor                        = $E;
  62.     kIsShared                    = $40;
  63.     kHasBeenInited                = $100;
  64.     kHasCustomIcon                = $400;
  65.     kIsStationery                = $800;
  66.     kIsStationary                = $800;
  67.     kNameLocked                    = $1000;
  68.     kHasBundle                    = $2000;
  69.     kIsInvisible                = $4000;
  70.     kIsAlias                    = $8000;
  71.  
  72. {    
  73.     The following declerations used to be in Files.i, 
  74.     but are Finder specific and were moved here.
  75. }
  76. {$IFC NOT OLDROUTINELOCATIONS }
  77. { Finder Constants }
  78.     fOnDesk                        = 1;
  79.     fHasBundle                    = 8192;
  80.     fTrash                        = -3;
  81.     fDesktop                    = -2;
  82.     fDisk                        = 0;
  83.  
  84.  
  85. TYPE
  86.     FInfo = RECORD
  87.         fdType:                    OSType;                                    {the type of the file}
  88.         fdCreator:                OSType;                                    {file's creator}
  89.         fdFlags:                INTEGER;                                {flags ex. hasbundle,invisible,locked, etc.}
  90.         fdLocation:                Point;                                    {file's location in folder}
  91.         fdFldr:                    INTEGER;                                {folder containing file}
  92.     END;
  93.  
  94.     FXInfo = RECORD
  95.         fdIconID:                INTEGER;                                {Icon ID}
  96.         fdUnused:                ARRAY [0..2] OF INTEGER;                {unused but reserved 6 bytes}
  97.         fdScript:                SInt8;                                    {Script flag and number}
  98.         fdXFlags:                SInt8;                                    {More flag bits}
  99.         fdComment:                INTEGER;                                {Comment ID}
  100.         fdPutAway:                LONGINT;                                {Home Dir ID}
  101.     END;
  102.  
  103.     DInfo = RECORD
  104.         frRect:                    Rect;                                    {folder rect}
  105.         frFlags:                INTEGER;                                {Flags}
  106.         frLocation:                Point;                                    {folder location}
  107.         frView:                    INTEGER;                                {folder view}
  108.     END;
  109.  
  110.     DXInfo = RECORD
  111.         frScroll:                Point;                                    {scroll position}
  112.         frOpenChain:            LONGINT;                                {DirID chain of open folders}
  113.         frScript:                SInt8;                                    {Script flag and number}
  114.         frXFlags:                SInt8;                                    {More flag bits}
  115.         frComment:                INTEGER;                                {comment}
  116.         frPutAway:                LONGINT;                                {DirID}
  117.     END;
  118.  
  119. {$ENDC}
  120.  
  121. { $ALIGN RESET}
  122. { $POP}
  123.  
  124. {$ENDC} {__FINDER__}
  125.  
  126.  IMPLEMENTATION
  127.  END.
  128.  
  129.